emp = [mom.emp_a0 mom.emp_a1 mom.emp_a2 mom.emp_a3 mom.emp_a4 mom.emp_a5 mom.emp_a6]/mom.av_size_incumbent;
rev = [mom.rev_a0 mom.rev_a1 mom.rev_a2 mom.rev_a3 mom.rev_a4 mom.rev_a5 mom.rev_a6]/mom.rev_av;
prod = exp([mom.prod_a0 mom.prod_a1 mom.prod_a2 mom.prod_a3 mom.prod_a4 mom.prod_a5 mom.prod_a6])/exp(mom.prod_av);
mkp = log([mom.mkp_a0 mom.mkp_a1 mom.mkp_a2 mom.mkp_a3 mom.mkp_a4 mom.mkp_a5 mom.mkp_a6]);

subplot(2,2,1)
plot(-1:5, emp,'LineWidth',4); xlabel('Age'); title('Employment'); xlim([0 5])
subplot(2,2,2)
plot(-1:5, rev,'LineWidth',4); xlabel('Age'); title('Revenue'); xlim([0 5])
subplot(2,2,3)
plot(-1:5, prod,'LineWidth',4); xlabel('Age'); title('Productivity'); xlim([0 5])
subplot(2,2,4)
plot(-1:5, mkp,'LineWidth',4); xlabel('Age'); title('log Markup'); xlim([0 5])

print('-dpng', 'figures/lifecycle.png')